﻿Imports System.IO
Imports System.Diagnostics
Imports System.Net.Mail
Imports System.Data
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Net

Public Class FiltroVentas
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Me.Login1.UserName.ToString = "admin" Then
            Response.Redirect("ConsultarJD.aspx")
        Else
            MsgBox("El usuario no existe. Intente de nuevo.")
        End If
    End Sub

End Class